home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 131
/
Tiger_Disk_131_2005-07-22_Tiger-Crew-Disk_de_Side_B.d64
/
ich rate [td]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
104 lines
10 print"[147]":poke53280,0:poke53281,2
11 print" [158]ich rate"
12 poke198,0:wait198,1:poke198,0
13 gosub60000
15 print" willst du 'ne erklaerung ?";
20 geta$:ifa$=""then20
30 ifa$="j"then1000
31 poke198,0:print"[147]bild 1"
36 b=0
40 print"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
41 print"[165] 8 9 10 11 12 13 14 15[167]"
42 print"[165] [167]"
43 print"[165]24 25 26 27 28 29 30 31[167]"
44 print"[165] [167]"
45 print"[165]40 41 42 43 44 45 46 47[167]"
46 print"[165] [167]"
47 print"[165]56 57 58 59 60 61 62 63[167]"
48 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]"
49 print"ist deine zahl auf diesem bild?";
50 getb$:ifb$=""then50
53 if"j"=b$thenb=8
54 print"bild"2"
55 [153]"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
56 [153]"fn16 17 18 19 20 21 22 23then"
57 [153]"fn then"
58 [153]"fn24 25 26 27 28 29 30 31then"
59 [153]"fn then"
60 [153]"fn48 49 50 51 52 53 54 55then"
61 [153]"fn then"
62 [153]"fn56 57 58 59 60 61 62 63then"
63 [153]"(NULL)tototototototototototototototototototototototosqr"
64 [153]"ist deine zahl auf diesem bild?";
65 [161]c$:[139]c$[178]""[167]65
67 [139]"j"[178]c$[167]b[178]b[170]16
68 [153]"bild 3"
69 [153]"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
70 [153]"fn 2 3 6 7 10 11 14 15then"
71 [153]"fn then"
72 [153]"fn18 19 22 23 26 27 30 31then"
73 [153]"fn then"
74 [153]"fn34 35 38 39 42 43 46 47then"
75 [153]"fn then"
76 [153]"fn50 51 54 55 58 59 62 63then"
77 [153]"(NULL)tototototototototototototototototototototototosqr"
78 [153]"ist deine zahl auf diesem bild?";
79 [161]d$:[139]d$[178]""[167]79
80 [139]"j"[178]d$[167]b[178]b[170]2
81 [153]"bild 4"
82 [153]"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
83 [153]"fn 4 5 6 7 12 13 14 15then"
84 [153]"fn then"
85 [153]"fn20 21 22 23 28 29 30 31then"
86 [153]"fn then"
87 [153]"fn36 37 38 39 44 45 46 47then"
88 [153]"fn then"
89 [153]"fn52 53 54 55 60 61 62 63then"
90 [153]"(NULL)tototototototototototototototototototototototosqr"
91 [153]"ist deine zahl auf diesem bild?";
92 [161]e$:[139]e$[178]""[167]92
93 [139]"j"[178]e$[167]b[178]b[170]4
94 [153]"bild 5"
95 [153]"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
96 [153]"fn32 33 34 35 36 37 38 39then"
97 [153]"fn then"
98 [153]"fn40 41 42 43 44 45 46 47then"
99 [153]"fn then"
100 [153]"fn48 49 50 51 52 53 54 55then"
101 [153]"fn then"
102 [153]"fn56 57 58 59 60 61 62 63then"
104 [153]"(NULL)tototototototototototototototototototototototosqr"
105 [153]"ist deine zahl auf diesem bild?";
106 [161]f$:[139]f$[178]""[167]106
107 [139]"j"[178]f$[167]b[178]b[170]32
108 [153]"bild 6"
109 [153]"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
110 [153]"fn 1 3 5 7 9 11 13 15then"
111 [153]"fn then"
112 [153]"fn17 19 21 23 25 27 29 31then"
113 [153]"fn then"
114 [153]"fn33 35 37 39 41 43 45 47then"
115 [153]"fn then"
116 [153]"fn49 51 53 55 57 59 61 63then"
117 [153]"(NULL)tototototototototototototototototototototototosqr"
118 [153]"ist deine zahl auf diesem bild?";
119 [161]g$:[139]g$[178]""[167]119
120 [139]"j"[178]g$[167]b[178]b[170]1
130 [153]"load an diese zahl hast du gedacht :"
135 [153]"";b
136 [153]" noch ein versuch ?";
140 [161]h$:[139]h$[178]""[167]140
150 [139]"j"[178]h$[167]31
151 [153]"load"
155 [128]
1000 [153]"load dieses spiel wird mit 6 bildern zu je 32 zahlen gespielt.
1001 print" es sind zahlen von 1 bis 63. du suchst dir eine zahl aus.
1002 [153]" der computer muss sie erraten."
1003 [153]" bitte drueck > r < zum anfangen !";
1004 [161]x$:[139]x$[179][177]"r"[167]1004
1005 [137]31
60000 [153]" deutsch von"
60010 [153]" t i g e r - c r e w"
60040 [151]198,0:[146]198,1:[151]198,0
60050 [142]